home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / comm / ftp4w24b.zip / vb / ftp_conn.frm next >
Text File  |  1995-01-17  |  4KB  |  151 lines
  1. VERSION 2.00
  2. Begin Form Connectform 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Connect session"
  6.    ClientHeight    =   2385
  7.    ClientLeft      =   1980
  8.    ClientTop       =   2745
  9.    ClientWidth     =   3675
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H0000C0C0&
  12.    Height          =   2790
  13.    Left            =   1920
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2385
  18.    ScaleWidth      =   3675
  19.    Top             =   2400
  20.    Width           =   3795
  21.    Begin CommandButton Command2 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "Cancel"
  24.       Height          =   375
  25.       Left            =   2520
  26.       TabIndex        =   5
  27.       Top             =   1800
  28.       Width           =   975
  29.    End
  30.    Begin CommandButton Command1 
  31.       Caption         =   "Login"
  32.       Default         =   -1  'True
  33.       Height          =   375
  34.       Left            =   120
  35.       TabIndex        =   4
  36.       Top             =   1800
  37.       Width           =   975
  38.    End
  39.    Begin TextBox PasswordEdit 
  40.       Height          =   285
  41.       Left            =   1440
  42.       PasswordChar    =   "*"
  43.       TabIndex        =   3
  44.       Text            =   "PasswordEdit"
  45.       Top             =   1200
  46.       Width           =   2055
  47.    End
  48.    Begin TextBox UserEdit 
  49.       Height          =   285
  50.       Left            =   1440
  51.       TabIndex        =   2
  52.       Text            =   "UserEdit"
  53.       Top             =   720
  54.       Width           =   2055
  55.    End
  56.    Begin TextBox NodeEdit 
  57.       Height          =   285
  58.       Left            =   1440
  59.       TabIndex        =   1
  60.       Text            =   "NodeEdit"
  61.       Top             =   240
  62.       Width           =   2055
  63.    End
  64.    Begin Label Label3 
  65.       BackColor       =   &H00C0C0C0&
  66.       Caption         =   "Password :"
  67.       Height          =   255
  68.       Left            =   120
  69.       TabIndex        =   7
  70.       Top             =   1200
  71.       Width           =   1095
  72.    End
  73.    Begin Label Label2 
  74.       BackColor       =   &H00C0C0C0&
  75.       Caption         =   "Userid :"
  76.       Height          =   255
  77.       Left            =   120
  78.       TabIndex        =   6
  79.       Top             =   720
  80.       Width           =   1095
  81.    End
  82.    Begin Label Label1 
  83.       BackColor       =   &H00C0C0C0&
  84.       Caption         =   "Node :"
  85.       Height          =   255
  86.       Left            =   120
  87.       TabIndex        =   0
  88.       Top             =   240
  89.       Width           =   1095
  90.    End
  91. End
  92.  
  93. Function Check_info () As Integer
  94.   'check if Hostname, Userid and password have been defined
  95.   '
  96.   Dim Ok%
  97.   Ok% = True
  98.   If Len(Trim$(ConnectForm!NodeEdit.Text)) = 0 Then
  99.     Ok% = False
  100.   ElseIf Len(Trim$(ConnectForm!UserEdit.Text)) = 0 Then
  101.     Ok% = False
  102.   ElseIf Len(Trim$(ConnectForm!PasswordEdit.Text)) = 0 Then
  103.     Ok% = False
  104.   End If
  105.   '
  106.   If Ok% Then
  107.     Hostname = ConnectForm!NodeEdit.Text
  108.     Userid = ConnectForm!UserEdit.Text
  109.     Password = ConnectForm!PasswordEdit.Text
  110.   End If
  111.   Check_info = Ok%
  112.   '
  113. End Function
  114.  
  115. Sub Command1_Click ()
  116.   '
  117.   If Check_info() Then
  118.     OkDialog = True
  119.     Unload ConnectForm
  120.   Else
  121.     MsgBox "Enter Nodename, Userid and Password", 64, "Warning"
  122.   End If
  123.   '
  124. End Sub
  125.  
  126. Sub Command2_Click ()
  127.   '
  128.   OkDialog = False
  129.   '
  130.   Unload ConnectForm
  131.   '
  132. End Sub
  133.  
  134. Sub Form_Activate ()
  135.   '
  136.   '
  137.   ConnectForm!NodeEdit.Text = Hostname
  138.   ConnectForm!UserEdit.Text = Userid
  139.   ConnectForm!PasswordEdit.Text = Password
  140.   '
  141. End Sub
  142.  
  143. Sub NodeEdit_Change ()
  144.   '
  145. End Sub
  146.  
  147. Sub UserEdit_Change ()
  148.   '
  149. End Sub
  150.  
  151.